"SEPTEMBER LISTING 1"  AS SAVED ON DISK
0800              1           TTL "Listing One: SPEED/ASM Equates"
0800              2  ;
0800              3  ;
0800              4  ;
0800              5  *************************************
0800              6  *                                   *
0800              7  *          Listing One:             *
0800              8  *          SPEED/ASM Equates        *
0800              9  *                                   *
0800             10  *************************************
0800             11  ;
0800             12  ;
0800             13  ;
0800             14  ;
0800             15  ;
0800             16  ;
0800             17  ;
0800             18  ;
0800             19  ; GENERAL PURPOSE EQUATES
0800             20  ;
0800             21  ; The following variables are used
0800             22  ; by the SPEED/ASM package and
0800             23  ; shouldn't be used by the SPEED/ASM
0800             24  ; programmer.
0800             25  ;
0800             26  ;
0800             27  ;
0800             28  ;
0000             29  FORASAV  EPZ 0
0001             30  FORXSAV  EPZ FORASAV+1
0002             31  FORYSAV  EPZ FORXSAV+1
0003             32  FORZPG   EPZ FORYSAV+1
0005             33  DESTADR  EPZ FORZPG+2
0007             34  PTRADR   EPZ DESTADR+2
0009             35  ISIMMED  EPZ PTRADR+2
000A             36  OP       EPZ ISIMMED+1
000C             37  MAXLEN   EPZ OP+2
000D             38  VALUE    EPZ MAXLEN+1
000F             39  DIGIT    EPZ VALUE+2
0010             40  LEAD0    EPZ DIGIT+1
0011             41  JMPADR   EPZ LEAD0+1
0013             42  COUNT    EPZ JMPADR+2
0014             43  GOTLN    EPZ COUNT+1
0015             44  LINEINDX EPZ GOTLN+1
0016             45  SIGN     EPZ LINEINDX+1
0017             46  ACL      EPZ SIGN+1
0018             47  ACH      EPZ ACL+1
0019             48  XTNDL    EPZ ACH+1
001A             49  XTNDH    EPZ XTNDL+1
001B             50  AUXL     EPZ XTNDH+1
001C             51  AUXH     EPZ AUXL+1
0800             52  ;
0033             53  PROMPT   EPZ $33
004E             54  RNDL     EPZ $4E
004F             55  RNDH     EPZ $4F
0100             56  STACK    EQU $100
0200             57  INPUT    EQU $200
0800             58  ;
0800             59  ;
0800             60  ;
0800             61  ;
0800             62  ;
0800             63  ;
0800             64  ;
0800             65  *****************
0800             66  *   CONSTANTS   *
0800             67  *****************
0800             68  ;
0800             69  ;
0800             70  ;
0800             71  ; The following symbols are constants
0800             72  ; for values "FALSE", "TRUE", and
0800             73  ; Carriage Return (respectively)
0800             74  ;
0800             75  ; These symbols should only appear
0800             76  ; as immediate operands to a 6502
0800             77  ; instruction or in the operand field
0800             78  ; of a pseudo-opcode like BYT.
0800             79  ;
0800             80  ;
0800             81  ;
0800             82  ;
0800             83  ;
0000             84  FALSE    EQU 0
0001             85  TRUE     EQU 1
008D             86  CR       EQU $8D
0800             87  ;
0800             88  ;
0800             89  ;
0800             90  ;
0800             91  ;
0800             92  ;
0800             93  ; "IF" STATEMENT EQUATES
0800             94  ;
0800             95  ; The following symbols should only
0800             96  ; be used in the ADR pseudo-opcode
0800             97  ; following a call to the SPEED/ASM
0800             98  ; IFx routines.
0800             99  ;
0800            100  ;
0800            101  ;
00BD            102  EQ       EQU "="
00A3            103  NE       EQU "#"
00BE            104  GT       EQU ">"
00BC            105  LT       EQU "<"
BDBE            106  GE       EQU ">"|"="*256
BDBC            107  LE       EQU "<"|"="*256
0800            108  ;
0800            109  ;
0800            110  ;
0800            111  ;
0800            112  ;
0800            113  ;
0800            114  ;
0800            115  ****************************
0800            116  *  SPEED/ASM ENTRY POINTS  *
0800            117  ****************************
0800            118  ;
0800            119  ;
0800            120  ;
0800            121  ;
0800            122  ; NOTE: THE EQUATE OF PUTC MUST
0800            123  ; BE CHANGED IF YOU RELOCATE
0800            124  ; SPEED/ASM TO SOME LOCATION
0800            125  ; OTHER THAN $7800
0800            126  ;
0800            127  ;
0800            128  ;
7800            129  PUTC     EQU $7800
7803            130  GETC     EQU PUTC+3
7806            131  SAGL     EQU GETC+3          ;FOR USE BY S/A ONLY- SEE DOC.
7809            132  SAPC     EQU SAGL+3          ; "   "   "  "   "     "   "
780C            133  HOME     EQU SAPC+3          ;HOME AND CLEAR
780F            134  READLN   EQU HOME+3
7812            135  INIT     EQU READLN+3
7815            136  FOR      EQU INIT+3
7818            137  FOR0     EQU FOR+3
781B            138  NEXT     EQU FOR0+3
781E            139  IFI      EQU NEXT+3
7821            140  IFI0     EQU IFI+3
7824            141  IFS      EQU IFI0+3
7827            142  IFS0     EQU IFS+3
782A            143  MOVE     EQU IFS0+3
782D            144  LOAD     EQU MOVE+3
7830            145  MOVS     EQU LOAD+3
7833            146  LDSTR    EQU MOVS+3
7836            147  PRINT    EQU LDSTR+3
7839            148  PRTSTR   EQU PRINT+3
783C            149  PRTINT   EQU PRTSTR+3
783F            150  RDSTR    EQU PRTINT+3
7842            151  RDINT    EQU RDSTR+3
7845            152  ONXGOTO  EQU RDINT+3
7848            153  CASE     EQU ONXGOTO+3
784B            154  CASEI    EQU CASE+3
784E            155  INSET    EQU CASEI+3
7851            156  NOTINSET EQU INSET+3
7854            157  ABS      EQU NOTINSET+3
7857            158  NEG      EQU ABS+3
785A            159  MUL      EQU NEG+3
785D            160  DIV      EQU MUL+3
7860            161  MOD      EQU DIV+3
7863            162  RND      EQU MOD+3
7866            163  SUBSTR   EQU RND+3
7869            164  INDEX    EQU SUBSTR+3
786C            165  LENGTH   EQU INDEX+3
786F            166  CONCAT   EQU LENGTH+3
7872            167  GETWZPG  EQU CONCAT+3        ;USED BY SPEED/ASM
7875            168  RDFP     EQU GETWZPG+3
7878            169  PRTE     EQU RDFP+3
787B            170  PRTF     EQU PRTE+3
787E            171  FADD     EQU PRTF+3
7881            172  FSUB     EQU FADD+3
7884            173  FMUL     EQU FSUB+3
7887            174  FDIV     EQU FMUL+3
788A            175  FLT      EQU FDIV+3
788D            176  FIX      EQU FLT+3
7890            177  FNEG     EQU FIX+3
7893            178  FADDTN   EQU FNEG+3
7896            179  FSUBTN   EQU FADDTN+3
7899            180  FTIMES   EQU FSUBTN+3
789C            181  FINTO    EQU FTIMES+3
789F            182  IFF      EQU FINTO+3
78A2            183  MOVFP    EQU IFF+3
0800            184  ;
0800            185  ;
0800            186  ;
0800            187           END